home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / ftp_pl.nasl < prev    next >
Encoding:
Text File  |  2005-01-14  |  2.6 KB  |  89 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(10467);
  10.  script_bugtraq_id(1471);
  11.  script_version ("$Revision: 1.17 $");
  12.  script_cve_id("CVE-2000-0674");
  13.  name["english"] = "ftp.pl shows the listing of any dir";
  14.  name["francais"] = "ftp.pl montre le contenu de tout rΘpertoire";
  15.  script_name(english:name["english"], francais:name["francais"]);
  16.  
  17.  desc["english"] = "
  18. The remote ftp.pl cgi can be used to get the listing
  19. of the content of arbitrary directories, using a simple
  20. request like :
  21.  
  22. http://target/cgi-bin/ftp/ftp.pl?dir=../../../../../../etc
  23.  
  24.  
  25. Solution : disable this CGI as no fix is available at this
  26. time (see http://www.feartech.com/vv/ftp.shtml for details
  27. regarding the availability of a patch)
  28.  
  29. Risk factor : Medium";
  30.  
  31.  desc["francais"] = "
  32. Le cgi distant ftp.pl peut etre utilisΘ pour obtenir
  33. la liste du contenu de n'importe quel rΘpertoire sur
  34. la machine distante, en faisant des requetes simples
  35. telles que :
  36.  
  37. http://cible/cgi-bin/ftp/ftp.pl?dir=../../../../../../etc
  38.  
  39. Solution : dΘsactivez ce CGI puisque aucun patch n'est
  40. disponible α ce jour (cf http://www.feartech.com/vv/ftp.shtml
  41. pour plus de dΘtails).
  42. Facteur de risque : Moyen";
  43.  
  44.  script_description(english:desc["english"], francais:desc["francais"]);
  45.  
  46.  summary["english"] = "Checks for the presence of /cgi-bin/ftp/ftp.pl";
  47.  summary["francais"] = "VΘrifie la prΘsence de /cgi-bin/ftp/ftp.pl";
  48.  
  49.  script_summary(english:summary["english"], francais:summary["francais"]);
  50.  
  51.  script_category(ACT_GATHER_INFO);
  52.  
  53.  
  54.  script_copyright(english:"This script is Copyright (C) 2000 Renaud Deraison",
  55.         francais:"Ce script est Copyright (C) 2000 Renaud Deraison");
  56.  family["english"] = "CGI abuses";
  57.  family["francais"] = "Abus de CGI";
  58.  script_family(english:family["english"], francais:family["francais"]);
  59.  script_dependencie("find_service.nes", "no404.nasl");
  60.  script_require_ports("Services/www", 80);
  61.  exit(0);
  62. }
  63.  
  64. #
  65. # The script code starts here
  66. #
  67.  
  68. include("http_func.inc");
  69. include("http_keepalive.inc");
  70. include("global_settings.inc");
  71.  
  72. port = get_http_port(default:80);
  73.  
  74.  
  75. if(!get_port_state(port))exit(0);
  76.  
  77. foreach dir (cgi_dirs())
  78. {
  79.  req = string(dir, "/ftp/ftp.pl?dir=../../../../../../etc");
  80.  req = http_get(item:req, port:port);
  81.  r = http_keepalive_send_recv(port:port, data:req);
  82.  if( r == NULL ) exit(0);
  83.  if("passwd" >< r && r !~ "^HTTP/1\.[01] +4[0-9][0-9] ")
  84.  {
  85.    if (debug_level > 0) display("---- ftp.pl on ", get_host_ip(), ":", port, " ----\n", req, "\n--------\n", r, "\n------------\n");
  86.    security_warning(port);
  87.  }
  88. }
  89.